home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Webster's Millennium Amer…Sign Language Dictionary
/
ASL.ISO
/
mac
/
SKILLS.dir
/
00064_Script_next q script
< prev
next >
Wrap
Text File
|
2001-09-05
|
670b
|
15 lines
on mouseUp
global TEMPLATE1, KNOB1, minPos1, maxPos1,gNumQs
global maxscroll,minScroll,gCat,ScrollList
put maxscroll*1.0-minScroll*1.0 into scrollRange
put scrollRange/(maxPos1-minPos1) into scrollRatio
put max(integer((maxPos1-minPos1)/scrollRange),1) into sliderRatio
--repeat while the mouseDown
set the locH of sprite KNOB1 = max( minPos1, min( (the locH of sprite KNOB1 + sliderRatio) , maxPos1 ) )
set refVal = getQVal(the locH of sprite KNOB1,scrollRange,scrollRatio,minPos1)
set the text of cast "whichq" = string(integer(refVal))&&"of"&&gNumQs
updateStage
--end repeat
aQuestion integer(refVal)
end
--alert "next q"